home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.20
/
rrequest
/
rrequesttest.p
< prev
next >
Wrap
Text File
|
1995-04-22
|
992b
|
35 lines
PROGRAM rrequest;
{$INCL 'rrequest.i'}
{ ********************** Hauptprogramm zum testen ********************* }
VAR datei,pfad:string;
win:^window;
it1,it2,it3,it4:Intuitext;
message:^intuimessage;
BEGIN
win:=Open_Window(0,0,500,50,$0201,_CLOSEWINDOW+GADGETUP+GADGETDOWN,
ACTIVATE+WINDOWCLOSE,'RRequesttest © 11.10.93 for Purity',
NIL,0,0,300,80);
searchlibs;
datei:='';
pfad:='sys:';
IF (foundarp OR foundasl) THEN rrequest('RRequesttest ',datei,pfad)
ELSE norequestermessage('Kein Abspeichern und Laden möglich !');
it1:=Intuitext(1,0,0,5,15,NIL,'Dateiname war:',^it2);
it2:=Intuitext(1,0,0,125,15,NIL,Datei,^it3);
it3:=Intuitext(1,0,0,5,30,NIL,'Pfadname war:',^it4);
it4:=Intuitext(1,0,0,125,30,NIL,Pfad,NIL);
PRINTITEXT(win^.rport,^it1,0,0);
message:=Wait_Port(win^.UserPort);
message:=Get_Msg(win^.UserPort);
Reply_msg(message);
close_window(win);
norequestermessage('Nur ein Test. Diese Zeile kann selbst definiert werden !');
END.